﻿Imports Autodesk.AutoCAD.Runtime
Imports Licenta3.Commanding

Public Class CalcululSuprafetelorViewModel
    Inherits AnexaViewModel(Of CalcululSuprafetelorClass)

    Public Sub New()
        Anexa.Autorizat = Setari.currentAutorizat
        Anexa.OCPI = Anexa.Autorizat.DefaultOCPI
        Anexa.BCPI = Anexa.Autorizat.DefaultBCPI
        'Me.UpdateAnexaUAT()
        _SelectImobilGeometryCommand = New DelegateCommand(Of Object)(AddressOf SelectImobilGeometry, AddressOf CanSelectImobilGeometry)
        'Me.CalcululSuprafetelorWindow = New ContentWindow(New Anexa1View, "Calculul Suprafetelor")
        'MsgBox("bau")
    End Sub
    'Public CalcululSuprafetelorWindow As New ContentWindow(New Anexa1View, "Calculul Suprafetelor")

    Public Property SelectImobilGeometryCommand As ICommand

    Public Sub SelectImobilGeometry(im As Imobil)
        im.Polyline.SelectGeometry()
        'MsgBox(im.Geometry.NumberOfVertices.ToString)
    End Sub
    Public Function CanSelectImobilGeometry()
        Return True
    End Function

End Class
